﻿Public Class frm_new_update

    Private Sub cmd_ok_Click(sender As Object, e As EventArgs) Handles cmd_ok.Click
        Me.Close()
        Me.Dispose()
    End Sub

    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked

        Try
            Process.Start(e.Link.LinkData.ToString)
            Me.Close()
        Catch ex As Exception
            MessageBox.Show("Fehler beim öffnen des Links!", Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

    End Sub

    Private Sub frm_new_update_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '     LinkLabel1.Links.Add(12, 4)
        LinkLabel1.Links(0).LinkData = "http://sfdl.codeplex.com/"
    End Sub
End Class